program encriptacion;
Var
	palabra, palabraEncriptada: string[7];
	caracter: char;
Begin
	writeln('Introduzca una palabra de siete letras:');
	readln(palabra);

	caracter := palabra[1];
	palabraEncriptada[1] := chr(ord(caracter)-20);

	caracter := palabra[2];
	palabraEncriptada[2] := chr(ord(caracter)-20);

	caracter := palabra[3];
	palabraEncriptada[3] := chr(ord(caracter)-20);

	caracter := palabra[4];
	palabraEncriptada[4] := chr(ord(caracter)-20);

	caracter := palabra[5];
	palabraEncriptada[5] := chr(ord(caracter)-20);

	caracter := palabra[6];
	palabraEncriptada[6] := chr(ord(caracter)-20);

	caracter := palabra[7];
	palabraEncriptada[7] := chr(ord(caracter)-20);

	write('La palabra encriptada es: ');
	writeln(palabraEncriptada[1]+palabraEncriptada[2]+palabraEncriptada[3]+palabraEncriptada[4]+palabraEncriptada[5]+palabraEncriptada[6]+palabraEncriptada[7]);

End.
